﻿Public Class NV_Nhap
    Private nvDT As NhanVienDT
    Private nvBL As NhanVienBL
    Dim checkclass As New CheckClass
    Public Id As Integer = 0
    Public MaNV As String = ""
    Public hotenNV As String = ""
    Public ngaysinh As Date = Date.Today
    Public gioitinh As String = "Nam"
    Public diachi As String = ""
    Public dienthoai As String = ""
    Public email As String = ""
    Public trinhdo As Integer = 0
    Public hesoluong As Integer = 0
    Public flagIsUp As Boolean

    Private Sub NV_Nhap_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtTen.Focus()
        Dim dt As DataTable
        Dim getdata As New DatabaseConnect
        dt = New DataTable()
        dt = getdata.GetData("select * from NhanVien_TrinhDo")
        cbTD.DataSource = dt
        cbTD.DisplayMember = "trinhdo"
        cbTD.ValueMember = "trinhdoID"
        dt = New DataTable()
        dt = getdata.GetData("select * from NhanVien_HeSoLuong")
        cbHSL.DataSource = dt
        cbHSL.DisplayMember = "luong"
        cbHSL.ValueMember = "hesoluong"
        txtTen.Focus()
        '---'
        If flagIsUp = False Then
            btnThem.Text = "Sửa"
            txtTen.Text = hotenNV
            txtDT.Text = dienthoai
            txtDC.Text = diachi
            txtEmail.Text = email
            If gioitinh = "Nam" Then
                rbNam.Checked = True
            Else
                rbNu.Checked = True
            End If
            dtpNSNV.Value = ngaysinh
            cbTD.SelectedValue = trinhdo
            cbHSL.SelectedValue = hesoluong
        End If
    End Sub

    Private Sub xuli_themsua()
        nvBL = New NhanVienBL()
        If rbNam.Checked = True Then
            gioitinh = "Nam"
        Else
            gioitinh = "Nữ"
        End If
        If flagIsUp = True Then
            Try
                Dim i As Integer = nvBL.GetID()
                Dim ma As String = "NV" + (i + 1).ToString("000")
                'Dim them As String = "insert into NhanVien(hotenNV,dienthoai,diachi,email) values(N'" + txtTen.Text + "'," + txtDT.Text + ",N'" + txtDC.Text + "','" + txtEmail.Text + "')"
                nvDT = New NhanVienDT(ma, txtTen.Text, txtDT.Text, txtDC.Text, txtEmail.Text, gioitinh, dtpNSNV.Value, cbHSL.SelectedValue, cbTD.SelectedValue, ma, "")
                nvBL.InUp(nvDT, flagIsUp)
                MessageBox.Show("Thêm thành công!")
                Me.Close()
            Catch ex As Exception
                MessageBox.Show("Kiểm tra lại kĩ thông tin. Ví dụ: Số điện thoại không quá 11 số hoặc nvông  chứa chữ", "Thông báo")
            End Try
        Else
            Try
                'Dim sua As String = "update NhanVien set hotenNV = N'" + txtTen.Text + "',dienthoai=" + txtDT.Text + ",diachi =N'" + txtDC.Text + "',email ='" + txtEmail.Text + "' where MaNV =" & MaNV & ""
                nvDT = New NhanVienDT(Id, txtTen.Text, txtDT.Text, txtDC.Text, txtEmail.Text, gioitinh, dtpNSNV.Value, cbHSL.SelectedValue, cbTD.SelectedValue)
                nvBL.InUp(nvDT, flagIsUp)
                MessageBox.Show("Sửa thành công!")
                Me.Close()
            Catch ex As Exception
                MessageBox.Show("Kiểm tra lại kĩ thông tin. Ví dụ: Số điện thoại nvông quá 11 số hoặc nvông  chứa chữ", "Thông báo")
            End Try
        End If
    End Sub

    Private Sub btnThem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnThem.Click
        If txtTen.Text = "" And txtDT.Text = "" Then
            txtTen.Text = "Chưa điền Tên nhân viên"
            txtDT.Text = "Chưa điền số điện thoại liên lạc"
        ElseIf txtTen.Text = "Chưa điền Tên nhân viên" Or txtDT.Text = "Chưa điền số điện thoại liên lạc" Then
            MessageBox.Show("Chưa điền Tên nhân viên hoặc số điện thoại")
        Else
            xuli_themsua()
        End If
    End Sub

    Private Sub btnHuy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHuy.Click
        Me.Close()
    End Sub

    Private Sub NV_Nhap_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Enter Then
            If txtTen.Text = "" And txtDT.Text = "" Then
                txtTen.Text = "Chưa điền Tên nhân viên"
                txtDT.Text = "Chưa điền số điện thoại liên lạc"
            ElseIf txtTen.Text = "Chưa điền Tên nhân viên" Or txtDT.Text = "Chưa điền số điện thoại liên lạc" Then
                MessageBox.Show("Chưa điền Tên nhân viên hoặc số điện thoại")
            Else
                xuli_themsua()
            End If
        End If
    End Sub
End Class